object SelectMUD: TSelectMUD
  Left = 266
  Top = 109
  HelpContext = 111
  BorderStyle = bsDialog
  Caption = 'MUD Connector'
  ClientHeight = 398
  ClientWidth = 453
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatBar: TPanel
    Left = 0
    Top = 381
    Width = 453
    Height = 17
    Align = alBottom
    Alignment = taLeftJustify
    BevelOuter = bvLowered
    TabOrder = 0
  end
  object Description: TMemo
    Left = 0
    Top = 257
    Width = 453
    Height = 124
    TabStop = False
    Align = alClient
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object Panel1: TPanel
    Left = 0
    Top = 25
    Width = 453
    Height = 232
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Image1: TImage
      Left = 216
      Top = 8
      Width = 26
      Height = 26
      AutoSize = True
      Center = True
    end
    object Label1: TLabel
      Left = 212
      Top = 66
      Width = 28
      Height = 13
      Alignment = taRightJustify
      Caption = 'Name'
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 188
      Top = 90
      Width = 52
      Height = 13
      Alignment = taRightJustify
      Caption = 'Host / Port'
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object MUDCount: TLabel
      Left = 40
      Top = 160
      Width = 2
      Height = 11
    end
    object Label4: TLabel
      Left = 248
      Top = 8
      Width = 142
      Height = 13
      Caption = 'Select the MUD to connect to'
    end
    object Label7: TLabel
      Left = 248
      Top = 22
      Width = 124
      Height = 13
      Caption = 'from the list on the right, or'
    end
    object Label8: TLabel
      Left = 248
      Top = 36
      Width = 106
      Height = 13
      Caption = 'fill in the values below.'
    end
    object NextBtn: TBitBtn
      Left = 208
      Top = 196
      Width = 77
      Height = 27
      Caption = '&Connect'
      Default = True
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ModalResult = 1
      ParentFont = False
      TabOrder = 0
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333344333333333333333FF33333333333334643333
        3333333333F3F33333333333346643333333333333F33F333333333334666433
        3333333333F333F333333333346666433333333333F3333F3333333334666664
        3333333333F33333F3333333346666664333333333F333333F33333334666666
        E333333333F33333383333333466666E3333333333F3333383333333346666E3
        3333333333F333383333333334666E333333333333F33383333333333466E333
        3333333333F3383333333333346E33333333333333F38333333333333EE33333
        3333333333883333333333333333333333333333333333333333000000000000
        0000000000000000000000000000000000000000}
      Margin = 2
      NumGlyphs = 2
      Spacing = -1
      IsControl = True
    end
    object CancelBtn: TBitBtn
      Left = 288
      Top = 196
      Width = 77
      Height = 27
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Kind = bkCancel
      Margin = 2
      Spacing = -1
      IsControl = True
    end
    object HelpBtn: TBitBtn
      Left = 368
      Top = 196
      Width = 77
      Height = 27
      HelpContext = 111
      Caption = 'Help'
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      Kind = bkHelp
      Margin = 2
      Spacing = -1
      IsControl = True
    end
    object Name: TEdit
      Left = 248
      Top = 64
      Width = 193
      Height = 21
      AutoSize = False
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object Host: TEdit
      Left = 248
      Top = 88
      Width = 156
      Height = 21
      AutoSize = False
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object Port: TEdit
      Left = 408
      Top = 88
      Width = 33
      Height = 21
      AutoSize = False
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object MUDListBox: TListBox
      Left = 7
      Top = 36
      Width = 169
      Height = 186
      ItemHeight = 13
      Sorted = True
      TabOrder = 6
      OnClick = MUDListBoxClick
    end
    object FilterPanel: TPanel
      Left = 8
      Top = 9
      Width = 169
      Height = 25
      BevelOuter = bvNone
      TabOrder = 7
      object Label6: TLabel
        Left = 0
        Top = 4
        Width = 25
        Height = 13
        Caption = 'Filter:'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object FilterBox: TComboBox
        Left = 33
        Top = 1
        Width = 136
        Height = 21
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        Items.Strings = (
          '-All-'
          'Aber'
          'Circle'
          'Diku'
          'Envy'
          'LP'
          'Merc'
          'Moo'
          'Muck'
          'MudOS'
          'Muse'
          'Mush'
          'Rom'
          'Tiny'
          '-Other-')
        ParentFont = False
        TabOrder = 0
        OnChange = FilterBoxChange
        OnDropDown = FilterBoxDropDown
        OnExit = FilterBoxExit
      end
    end
    object AddrPanel: TPanel
      Left = 208
      Top = 112
      Width = 236
      Height = 73
      BevelOuter = bvNone
      TabOrder = 8
      object Label5: TLabel
        Left = 10
        Top = 2
        Width = 22
        Height = 13
        Alignment = taRightJustify
        Caption = 'Addr'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object UseBtn: TSpeedButton
        Left = 200
        Top = 0
        Width = 33
        Height = 20
        Hint = 'Use IP Address|'
        AllowAllUp = True
        GroupIndex = 1
        Caption = 'Use'
        Font.Color = clBtnText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Spacing = 0
      end
      object Label3: TLabel
        Left = 8
        Top = 26
        Width = 24
        Height = 13
        Alignment = taRightJustify
        Caption = 'Type'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object URLLabel: TLabel
        Left = 10
        Top = 50
        Width = 22
        Height = 13
        Alignment = taRightJustify
        Caption = 'URL'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object URLText: TLabel
        Left = 40
        Top = 50
        Width = 3
        Height = 13
        Cursor = crDrag
        Color = clBtnFace
        Font.Color = clHighlight
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsUnderline]
        ParentColor = False
        ParentFont = False
        OnClick = URLTextClick
      end
      object Addr: TEdit
        Left = 40
        Top = 0
        Width = 156
        Height = 21
        TabStop = False
        AutoSize = False
        Color = clBtnFace
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
      object MudType: TEdit
        Left = 40
        Top = 24
        Width = 193
        Height = 21
        TabStop = False
        AutoSize = False
        Color = clBtnFace
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 453
    Height = 25
    Align = alTop
    Alignment = taLeftJustify
    BevelOuter = bvLowered
    Caption = ' List:'
    TabOrder = 3
    object ScottList: TSpeedButton
      Left = 290
      Top = 1
      Width = 129
      Height = 23
      GroupIndex = 1
      Caption = 'Scott Geiger'#39's List'
      Font.Color = clBtnText
      Font.Height = -10
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = ScottListClick
    end
    object SmallList: TSpeedButton
      Left = 32
      Top = 1
      Width = 129
      Height = 23
      GroupIndex = 1
      Down = True
      Caption = 'MUD Connector (small)'
      Font.Color = clBtnText
      Font.Height = -10
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SmallListClick
    end
    object BigList: TSpeedButton
      Left = 161
      Top = 1
      Width = 129
      Height = 23
      GroupIndex = 1
      Caption = 'MUD Connector (big)'
      Font.Color = clBtnText
      Font.Height = -10
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = BigListClick
    end
    object UpdateBtn: TSpeedButton
      Left = 426
      Top = 1
      Width = 25
      Height = 23
      Hint = 'Update List|'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555FFFFF555555555544C4C5555555555F777775FF5555554C444C444
        5555555775FF55775F55554C4334444445555575577F55557FF554C4C334C4C4
        335557F5577FF55577F554CCC3334444335557555777F555775FCCCCC333CCC4
        C4457F55F777F555557F4CC33333CCC444C57F577777F5F5557FC4333333C3C4
        CCC57F777777F7FF557F4CC33333333C4C457F577777777F557FCCC33CC4333C
        C4C575F7755F777FF5755CCCCC3333334C5557F5FF777777F7F554C333333333
        CC55575777777777F755553333CC3C33C555557777557577755555533CC4C4CC
        5555555775FFFF77555555555C4CCC55555555555777775555550000}
      NumGlyphs = 2
      OnClick = UpdateBtnClick
    end
  end
end